home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ IE File URLS 1.xpl < prev    next >
Text File  |  2003-11-20  |  2KB  |  61 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH 1"="Internet\Internet Explorer\URL Handling"
  5. "UIPATH 2"="Internet\Internet Explorer\Security"
  6. "NAME"="file: / about: URL Settings"
  7. "VERSION"="1.12"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Disable file:// URLs"
  10. "TEXT 2"="Restrict about: URLs"
  11. "DESCRIPTION 1"="Normally you can use the Internet Explorer address bar to access standard files and folders on your computer. This setting disables that functionality."
  12. "DESCRIPTION 2"="Certain web sites force the opening of a hidden popup tracking minimized window upon your first visit, or when you leave their web site, or when you close your browser while one of their web pages is still displayed, using the 'about:' protocol. This option puts all about: URLs into the restricted sites zone, so that scripts cannot be run."
  13. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="Option 1 taken from http://www.winguides.com/registry/display.php/959/"
  17. "COMMENT 2"="Option 2 taken from http://members.aol.com/axcel216/newtip22.htm#KIAU"
  18.  
  19. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileUrl"
  20. sQ="HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\ProtocolDefaults\"
  21.  
  22. Sub Plugin_Initialize 
  23.  s=RegReadValue(sP)
  24.  if s=1 then
  25.   Call SetUIElement(1,true)
  26.  end if
  27.  s=RegReadValue(sQ & "about")
  28.  if s=4 then
  29.   Call SetUIElement(2,true)
  30.  end if
  31. End Sub
  32.  
  33. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  34.  s=GetUIElement(1)
  35.  if s=true then
  36.   Call RegWriteValue(sP,1,2)
  37.  else
  38.   Call RegWriteValue(sP,0,2)
  39.  end if
  40.  
  41.  s=GetUIElement(2)
  42.  if s=true then
  43.   Call RegWriteValue(sQ & "about",4,2)
  44.   Call RegWriteValue(sQ & "about:",4,2)
  45.  else
  46.   t=RegReadValue(sQ & "about")
  47.   if IsEmpty(t)=false then
  48.    Call RegDeleteValue(sQ & "about")
  49.   end if
  50.   t=RegReadValue(sQ & "about:")
  51.   if IsEmpty(t)=false then
  52.    Call RegDeleteValue(sQ & "about:")
  53.   end if
  54.  end if
  55.  
  56.  Call IndicateSettingChange()
  57. End Sub
  58.  
  59. Sub Plugin_Terminate 
  60. End Sub
  61.